home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00009_Script_Rotate Forever < prev    next >
Text File  |  1997-09-30  |  1KB  |  40 lines
  1. -- Rotate Forever
  2.  
  3.  
  4.  
  5.  
  6. Property pFrames, pDirection,pInterp
  7.  
  8. on getPropertyDescriptionList
  9.   if not alphamaniacCheck(the currentSpriteNum) then exit
  10.   
  11.   set pList=[:]
  12.   addProp pList,#pDirection,[format:#symbol,comment:"Direction:", Default:#CW,range:[#CW,#CCW]]
  13.   addProp pList,#pFrames,[format:#integer,comment:"Frames / Revolution:", Default:30, range:[min:2,max:60]]
  14.   addProp pList,#pInterp,[format:#symbol,¼
  15.                                comment:"Interpolation:",¼
  16.                                Default:#On,range:[#Off,#On,#Paused]]
  17.   
  18.   return pList
  19. end
  20.  
  21. on beginSprite me
  22.   set s=the spriteNum of me
  23.   if not alphaManiac(s) then exit
  24.   
  25.   set pInterp=interpolation(pInterp)
  26.   
  27.   if pDirection=#CCW then set pFrames = pFrames * -1
  28.   rotate(sprite s,[animMode:#Infinite,FramesPerRevolution:pFrames,interpolation:pInterp])
  29. end
  30.  
  31. on getBehaviorDescription me
  32.   set msg= "Make an AlphaManiac rotate forever. Or until you stop it."
  33.   put return & return after msg
  34.   put "Parameters:" & return & "-----------" & return  after msg
  35.   put "*                Direction:  CW (Clockwise) or CCW" & return after msg
  36.   put "* Frames/Revolution:  Lower numbers are faster" & return after msg
  37.   put "*           Interpolation:  On,Off,or While Paused" after msg
  38.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  39.   return msg
  40. end